home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8507a.d64 / disk manager (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  9KB  |  428 lines
  1. 10 REM " [196]ISK [205]ANAGER [214]4.0
  2. 11 [143] "
  3. 12 REM " [214]ON [212]HOMAS [207]MERZU
  4. 13 [143] "     PEEKIRKENWEG 3
  5. 14 REM "     4413 [194]EELEN
  6. 15 [143] "
  7. 16 REM "      06/09/85
  8. 17 [143] "
  9. 20 :
  10. 21 O1=6501: M1=O1+1
  11. 22 O2=301 : M2=O2+1
  12. 25 DIM DI$(150),K(150)
  13. 26 DIM SI(4)   : REM SPEICHERINFO
  14. 30 AN=0
  15. 35 DEFFNH(X)=INT(X/256)
  16. 36 DEFFNL(X)=X-256*FNH(X)
  17. 40 DEFFNM1(X)=X-(INT(X/O1)*O1)+1
  18. 41 DEFFNM2(X)=X-(INT(X/O2)*O2)+1
  19. 42 C1$=" [146][157]":C1=20
  20. 43 C2$=" [157]":  C2=2*C1
  21. 44 RE$=""
  22. 45 HK$=CHR$(34)
  23. 46 NU$=CHR$(0)
  24. 47 DF$="                "
  25. 48 DL$=CHR$(254)+CHR$(255)
  26. 50 :
  27. 90 GOTO 1000
  28. 95 :
  29. 97 REM
  30. 98 REM   ----  "[200]ASH-[198]UNKTION 1"  ----
  31. 99 REM
  32. 100 ID=0
  33. 101 LE=LEN(ID$):IFLE=0THENID=1:RETURN
  34. 102 FORI=1TOLE
  35. 110 A$=MID$(ID$,I,1)
  36. 130 ID=FNM1(ID*26+ASC(A$))
  37. 140 NEXT
  38. 150 RETURN
  39. 197 REM
  40. 198 REM   ----  "[200]ASH-[198]UNKTION 2"  ----
  41. 199 REM
  42. 200 DI=0
  43. 201 LE=LEN(DI$):IFLE=0THENDI=1:RETURN
  44. 202 FORI=1TOLE
  45. 210 A$=MID$(DI$,I,1)
  46. 230 DI=FNM2(DI*26+ASC(A$))
  47. 240 NEXT
  48. 250 RETURN
  49. 297 REM
  50. 298 REM ----  "[208]ROGRAMMFILE LESEN"  ----
  51. 299 REM
  52. 300 PRINT#15,"P"CHR$(2)CHR$(FNL(ID))CHR$(FNH(ID))CHR$(1)
  53. 310 INPUT#2,PR$
  54. 320 PRINT#15,"P"CHR$(2)CHR$(FNL(ID))CHR$(FNH(ID))CHR$(18)
  55. 330 GET#2,A1$,A2$,A3$,A4$,CO$
  56. 340 DI=ASC(A1$+NU$)+256*ASC(A2$+NU$)
  57. 345 NE=ASC(A3$+NU$)+256*ASC(A4$+NU$)
  58. 350 RETURN
  59. 357 REM
  60. 358 REM  ----  "[196]ISKFILE LESEN"  ----
  61. 359 REM
  62. 360 PRINT#15,"P"CHR$(2)CHR$(FNL(DI))CHR$(FNH(DI))CHR$(1)
  63. 370 INPUT#2,NA$,IN$
  64. 375 PRINT#15,"P"CHR$(2)CHR$(FNL(DI))CHR$(FNH(DI))CHR$(25)
  65. 380 GET#2,A1$,A2$,A3$,A4$
  66. 385 NE=ASC(A1$+NU$)+256*ASC(A2$+NU$)
  67. 387 FR=ASC(A3$+NU$)+256*ASC(A4$+NU$)
  68. 390 RETURN
  69. 397 REM
  70. 398 REM ---- "[208]ROGFILE SCHREIBEN" ----
  71. 399 REM
  72. 400 PRINT#15,"P"CHR$(2)CHR$(FNL(ID))CHR$(FNH(ID))CHR$(1)
  73. 410 PRINT#2,ID$
  74. 420 PRINT#15,"P"CHR$(2)CHR$(FNL(ID))CHR$(FNH(ID))CHR$(18)
  75. 430 PRINT#2,CHR$(FNL(DN))CHR$(FNH(DN))CHR$(FNL(KO))CHR$(FNH(KO))CO$;
  76. 450 RETURN
  77. 457 REM
  78. 458 REM ---- "[196]ISKFILE SCHREIBEN" ----
  79. 459 REM
  80. 460 PRINT#15,"P"CHR$(2)CHR$(FNL(DI))CHR$(FNH(DI))CHR$(1)
  81. 470 PRINT#2,DI$","I$
  82. 475 PRINT#15,"P"CHR$(2)CHR$(FNL(DI))CHR$(FNH(DI))CHR$(25)
  83. 480 PRINT#2,CHR$(FNL(KO))CHR$(FNH(KO))CHR$(FNL(FR))CHR$(FNH(FR))
  84. 490 RETURN
  85. 497 REM
  86. 498 REM  ---- "[211]PEICHERINFO LESEN" ----
  87. 499 REM
  88. 500 OPEN5,8,5,"#":GOSUB700
  89. 510 PRINT#15,"B-R:" 5;0;18;0
  90. 520 PRINT#15,"B-P:" 5;200
  91. 525 FOR SI=0 TO 4
  92. 530 GET#5,A1$,A2$:SI(SI)=ASC(A1$+NU$)+256*ASC(A2$+NU$):NEXT
  93. 535 CLOSE5:RETURN
  94. 547 REM
  95. 548 REM--- "[211]PEICHERINFO SCHREIBEN" ---
  96. 549 REM
  97. 550 OPEN5,8,5,"#":GOSUB700
  98. 555 PRINT#15,"B-R:" 5;0;18;0
  99. 560 PRINT#15,"B-P:" 5;200
  100. 565 FOR SI=0 TO 4
  101. 570 PRINT#5,CHR$(FNL(SI(SI)))CHR$(FNH(SI(SI)));:NEXT
  102. 575 PRINT#15,"B-W:" 5;0;18;0
  103. 580 CLOSE5:RETURN
  104. 597 REM
  105. 598 REM  ----  "[201]RGENDEINE [212]ASTE"  ----
  106. 599 REM
  107. 600 PRINT:PRINT"[215]EITER MIT EINER [212]ASTE: ";:GOSUB800:PRINT:PRINT:RETURN
  108. 697 REM
  109. 698 REM    ----  "[196]ISK [197]RROR"  ----
  110. 699 REM
  111. 700 INPUT#15,DS,DS$,TR,SE
  112. 710 IF(DS=0)OR(DS=50)OR(DS=51)THENRETURN
  113. 720 PRINT:PRINT"[196]ISK [197]RROR:"DS;DS$;TR;SE
  114. 730 CLOSE2:CLOSE15
  115. 740 GOSUB600:GOTO1000
  116. 797 REM
  117. 798 REM  ----  "[212]ASTATUREINGABE"  ----
  118. 799 REM
  119. 800 C=0
  120. 810 GETE$:C=C+1:IFC=C1THENPRINTC1$;
  121. 820 IFC=C2THENPRINTC2$;:C=0
  122. 830 IFE$=""THENGOTO810
  123. 840 PRINTC2$;:RETURN
  124. 897 REM
  125. 898 REM       ----  "[212]ITEL"  ----
  126. 899 REM
  127. 900 PRINT"[147]";:FORI=1TO40:PRINT"[192]";:NEXT
  128. 910 PRINT:PRINT"           [196]ISK [205]ANAGER [214]4.0
  129. 930 [153]:[129]I[178]1[164]40:[153]"TAN";:[130]
  130. 940 [153]:[153]:[142]
  131. 997 [143]
  132. 998 [143]      ----  "LEFT$AUPTMENUE"  ----
  133. 999 [143]
  134. 1000 [151]53280,0:[151]53281,0:[141]900
  135. 1010 [153]"< 1 >  (null)ROGRAMM SUCHEN
  136. 1020 PRINT"< 2 >  [196]IRECTORY EINLESEN & SPEICHERN
  137. 1025 [153]"< 3 >  STR$IRECTORY LISTEN
  138. 1026 PRINT"< 4 >  [196]IRECTORY LOESCHEN
  139. 1027 [153]"< 5 >  (null)ROGRAMM LOESCHEN
  140. 1028 PRINT"< 6 >  [211]PEICHERINFO
  141. 1029 [153]"< 7 >  (null)EUE STR$ATENDISK ANLEGEN
  142. 1031 PRINT"< 0 >  [197]NDE"
  143. 1040 PRINT"[201]HRE [215]AHL? ";
  144. 1045 GOSUB800:W$=E$
  145. 1050 IFW$="0"THENPRINT:PRINT"(C) 1985 BY [212]HOMAS [207]MERZU.":END
  146. 1060 ON VAL(W$)GOTO1200,6000,2000,3000,9000,8000,4000
  147. 1070 GOTO1000
  148. 1197 REM
  149. 1198 REM  ----  "[208]ROGRAMM SUCHEN"  ----
  150. 1199 REM
  151. 1200 GOSUB900:FL=0
  152. 1210 OPEN15,8,15:OPEN2,8,2,"PROGFILE,L":GOSUB700
  153. 1220 INPUT"[208]ROGRAMMNAME";ID$:GOSUB100:
  154. 1225 GOSUB300
  155. 1230 IFPR$=ID$THEN1300
  156. 1240 IFPR$=CHR$(255)THENPRINT"[208]ROGRAMM NICHT VORHANDEN.":GOTO1400
  157. 1250 ID=ID+1:IFID>O1THENID=1
  158. 1260 GOTO1225
  159. 1300 CLOSE2
  160. 1310 OPEN2,8,2,"DISKFILE,L"
  161. 1320 GOSUB360:IFFLTHEN1350
  162. 1330 PRINT:PRINT"[196]AS [208]ROGAMM "HK$ID$HK$
  163. 1335 FL=-1
  164. 1340 PRINT"IST GESPEICHERT AUF DE";
  165. 1345 IFCO$="+"THENPRINT"N [196]ISKETTEN":GOTO1350
  166. 1347 PRINT"R [196]ISKETTE"
  167. 1350 PRINT""HK$;NA$;HK$" "IN$
  168. 1360 IFCO$<>"+"THEN1400
  169. 1370 GETA$:IFA$=""THENCLOSE2:OPEN2,8,2,"PROGFILE,L":GOTO1250
  170. 1380 PRINT"BREAK.
  171. 1400 [160]2:[160]15
  172. 1410 [141]600:[137]1000
  173. 1997 [143]
  174. 1998 [143] ----  "STR$IRECTORY LISTEN"  ----
  175. 1999 [143]
  176. 2000 [141]900
  177. 2010 [133]"STR$ISKNAME";DI$
  178. 2020 DI$[178][200](DI$[170]DF$,16):[141]200
  179. 2030 [159]15,8,15:[159]2,8,2,"DISKFILE,L":[141]700
  180. 2040 [141]360:[141]700
  181. 2050 [139]NA$[178]DI$[167]2100
  182. 2060 [139]NA$[178][199](255)[167]2090
  183. 2070 DI[178]DI[170]1:[139]DI[177]O2[167]DI[178]1
  184. 2080 [137]2040
  185. 2090 [153]"STR$IRECTORY NICHT GESPEICHERT.":[160]2:[160]15:[141]600:[137]1000
  186. 2100 [153]""HK$;DI$;HK$" "IN$
  187. 2110 [160]2
  188. 2120 [159]2,8,2,"PROGFILE,L":[141]700
  189. 2130 [139]NE[178]0[167]2200
  190. 2135 [161]A$:[139]A$[179][177]""[167][153]"BREAK.":[137]2210
  191. 2140 ID[178]NE:[141]300
  192. 2150 [153]"  "HK$;PR$;HK$
  193. 2160 [139]PR$[178][199](255)[167]NE[178]0
  194. 2170 [137]2130
  195. 2200 [153]FR"PEEKLOCKS FREE.
  196. 2210 CLOSE2:CLOSE15:GOSUB600:GOTO1000
  197. 2997 REM
  198. 2998 REM ---- "[196]IRECTORY LOESCHEN" ----
  199. 2999 REM
  200. 3000 GOSUB900
  201. 3010 INPUT"[196]ISKNAME";DI$
  202. 3020 DI$=LEFT$(DI$+DF$,16):GOSUB200
  203. 3030 OPEN15,8,15
  204. 3033 GOSUB500
  205. 3035 OPEN2,8,2,"DISKFILE,L":GOSUB700
  206. 3040 GOSUB360:GOSUB700
  207. 3050 IFNA$=DI$THEN3100
  208. 3060 IFNA$=CHR$(255)THEN3090
  209. 3070 DI=DI+1:IFDI>O2THENDI=1
  210. 3080 GOTO3040
  211. 3090 PRINT"[196]IRECTORY NICHT GESPEICHERT.":CLOSE2:CLOSE15:GOSUB600:GOTO1000
  212. 3100 PRINT""HK$;DI$;HK$" "IN$
  213. 3120 PRINT"< 1 >   [196]IRECTORY LOESCHEN
  214. 3130 [153]"< 0 >   (null)URUECK ZUM LEFT$AUPTMENUE
  215. 3140 PRINT"[201]HRE [215]AHL? ";
  216. 3150 GOSUB800
  217. 3160 IFE$="0"THENCLOSE2:CLOSE15:GOTO1000
  218. 3170 IFE$<>"1"THEN3150
  219. 3180 GOSUB900:PRINT"[196]IRECTORY WIRD GELOESCHT..."
  220. 3185 SI(0)=SI(0)+1:SI(1)=SI(1)-1
  221. 3190 DI$=DL$:GOSUB460:CLOSE2
  222. 3200 OPEN2,8,2,"PROGFILE,L":GOSUB700
  223. 3210 IFNE=0THENCLOSE2:GOSUB550:CLOSE15:GOTO1000
  224. 3215 SI(3)=SI(3)+1:SI(4)=SI(4)-1
  225. 3220 ID=NE:GOSUB300
  226. 3230 ID$=DL$:GOSUB400:GOSUB700:IFCO$="+"THEN3210
  227. 3240 FL=ID:ID$=PR$:GOSUB100:IFID=FLTHEN3210
  228. 3245 N2=NE
  229. 3250 I2=ID:ID=FL
  230. 3260 ID=ID-1:IFI2>IDTHEN3210
  231. 3270 GOSUB300:IFPR$<>ID$THEN3260
  232. 3280 DN=DI:KO=NE:CO$="-":GOSUB400:GOSUB700
  233. 3290 NE=N2:GOTO3210
  234. 3997 REM
  235. 3998 REM  ----  "[206]EUE [196]ATENDISK"  ----
  236. 3999 REM
  237. 4000 GOSUB900
  238. 4010 PRINT"[204]EGEN [211]IE EINE LEERE [196]ISKETTE INS [204]AUF- WERK."
  239. 4020 PRINT"< 1 >   [206]EUE [196]ATENDISK ANLEGEN
  240. 4030 [153]"< 0 >   (null)URUECK ZUM LEFT$AUPTMENUE
  241. 4040 PRINT"[201]HRE [215]AHL? ";
  242. 4050 GOSUB800
  243. 4060 IFE$="0"THEN1000
  244. 4070 IFE$<>"1"THEN4050
  245. 4080 GOSUB900
  246. 4090 PRINT"[196]ISKETTE WIRD FORMATIERT...
  247. 4100 [159]15,8,15,"N0:DISK MANAGER,TO"
  248. 4110 [141]700
  249. 4120 [153]:[153]"(null)ROGRAMM WIRD ABGESPEICHERT..."
  250. 4130 [148]"DISK MANAGER 4.0",8
  251. 4140 [141]700
  252. 4150 [153]:[153]"STR$ATENFILE 1 WIRD ANGELEGT..."
  253. 4160 [159]2,8,2,"PROGFILE,L,"[170][199](22)
  254. 4170 [141]700
  255. 4172 [152]15,"P"[199](2)[199]([165]L(M1))[199]([165]H(M1))[199](1)
  256. 4174 [141]700
  257. 4176 [152]2,"END"
  258. 4178 [141]700
  259. 4180 [160]2
  260. 4190 [153]:[153]"STR$ATENFILE 2 WIRD ANGELEGT..."
  261. 4200 [159]2,8,2,"DISKFILE,L,"[170][199](32)
  262. 4210 [141]700
  263. 4212 [152]15,"P"[199](2)[199]([165]L(M2))[199]([165]H(M2))[199](1)
  264. 4214 [141]700
  265. 4216 [152]2,"END"
  266. 4220 [160]2
  267. 4225 [153]:[153]"(null)PEICHERINFO WIRD ANGELEGT..."
  268. 4230 SI(0)[178]O2:SI(1)[178]0
  269. 4240 SI(2)[178]O1:SI(3)[178]0:SI(4)[178]0
  270. 4250 [141]550
  271. 4260 [160]15:[137]1000
  272. 5996 [143]
  273. 5997 [143] ----  "STR$IRECTORY LESEN"  ----
  274. 5998 [143] ----  "  & SPEICHERN  "  ----
  275. 5999 [143]
  276. 6000 [141]900:CO[178]0
  277. 6005 [153]"STR$IRECTORY EINLESEN:
  278. 6006 PRINT"[194]ITTE LEGEN [211]IE DIE [196]ISKETTE INS [204]AUF-  WERK.
  279. 6007 [141]600
  280. 6008 [153]:[153]:[153]
  281. 6010 [159]15,8,15,"I
  282. 6020 OPEN2,8,0,"$0":GOSUB700
  283. 6021 PRINT"[193]LLE [198]ILES SPEICHERN? ";:
  284. 6022 GOSUB800:IFE$="J"THENAL=-1:GOTO6029
  285. 6023 IFE$<>"N"THEN6022
  286. 6024 AL=0
  287. 6029 PRINTE$:PRINT:PRINT
  288. 6030 FORI=1TO8:GET#2,B$:NEXT:DI$=""
  289. 6031 FORI=1TO16:GET#2,B$:DI$=DI$+B$:NEXT:PRINT""HK$DI$HK$;:GET#2,B$:I1$=""
  290. 6033 FORI=1TO6:GET#2,B$:I1$=I1$+B$:NEXT:PRINTI1$:GET#2,B$
  291. 6035 GET#2,B$,C$:IFST<>0THEN6200
  292. 6040 GET#2,B$,C$
  293. 6050 D=0
  294. 6060 IF B$<>"" THEN D=ASC(B$)
  295. 6070 IF C$<>"" THEN D=D+ASC(C$)*256
  296. 6080 N$="":HK=0
  297. 6090 GET#2,C$:IF ST<>0 THEN 6200
  298. 6093 IFC$=HK$THENHK=NOT(HK)
  299. 6095 IFHKTHENN$=N$+C$
  300. 6100 IFC$<>""THEN6090
  301. 6101 DI$(CO)=MID$(N$,2)
  302. 6110 IF LEN(DI$(CO))=0 THEN6120
  303. 6111 PRINT"  "HK$DI$(CO)HK$:IFALTHEN6120
  304. 6112 PRINT"[145]"RE$"- [211]PEICHERN? ";
  305. 6113 GOSUB800:IFE$<>"J"ANDE$<>"N"THEN6113
  306. 6114 PRINT:PRINT"[145]"RE$;
  307. 6115 IFE$="N"THENPRINT"- [206]EIN.     ":GOTO6130
  308. 6116 PRINT"- [202]A.       "
  309. 6120 CO=CO+1
  310. 6130 IFST=0THEN GOTO6035
  311. 6200 CLOSE2:CLOSE15
  312. 6205 PRINTD"[194]LOCKS FREE.
  313. 6210 :
  314. 6220 [153]"PEEKITTE LEGEN (null)IE DIE STR$RIGHT$(null)(null) (null)ATN(null)ATNCHR$VAL(null) -      STR$ISKETTE INS (null)AUFWERK.
  315. 6230 GOSUB600
  316. 6240 GOSUB900
  317. 6250 OPEN15,8,15,"I":GOSUB500
  318. 6255 IF SI(0)>1 AND SI(2)>CO THEN 6260
  319. 6257 PRINT"[211]PEICHERUNG NICHT MOEGLICH."
  320. 6258 PRINT"[211]PEICHERPLATZ ERSCHOEPFT."
  321. 6259 CLOSE15:GOSUB600:GOTO1000
  322. 6260 OPEN2,8,2,"DISKFILE,L":GOSUB700
  323. 6270 GOSUB200
  324. 7024 PRINT"[196]ATEN WERDEN GESPEICHERT..."
  325. 7025 GOSUB360
  326. 7030 IFNA$=DI$THEN7100
  327. 7040 IFNA$=CHR$(255)THEN7200
  328. 7050 DI=DI+1:IFDI>O2THENDI=1
  329. 7060 GOTO7025
  330. 7100 PRINT"[196]IE [196]ISKETTE "DI$
  331. 7110 PRINT"WURDE SCHON GESPEICHERT.
  332. 7120 [160]2:[160]15:[141]600:[137]1000
  333. 7200 I$[178]I1$:KO[178]0:[141]460:[141]700
  334. 7210 [160]2
  335. 7211 SI(0)[178]SI(0)[171]1:SI(1)[178]SI(1)[170]1
  336. 7215 DN[178]DI:[139]CO[179][178]1[167]7620
  337. 7220 [159]2,8,2,"PROGFILE,L":[141]700
  338. 7230 [129]I1[178]CO[171]2[164]0[169][171]1
  339. 7320 ID$[178]DI$(I1):[153]HK$ID$HK$:[141]100
  340. 7325 [141]300
  341. 7330 [139]PR$[178][199](255)[167]SI(2)[178]SI(2)[171]1:SI(4)[178]SI(4)[170]1:[137]7500
  342. 7340 [139]PR$[178]ID$[167]7400
  343. 7345 [139]PR$[178]DL$[167]SI(3)[178]SI(3)[171]1:SI(4)[178]SI(4)[170]1:[137]7450
  344. 7350 ID[178]ID[170]1:[139]ID[177]O1[167]ID[178]1
  345. 7360 [137]7325
  346. 7400 [139]CO$[178]"+"[167]7350
  347. 7405 N2[178]KO:D2[178]DN
  348. 7410 DN[178]DI:KO[178]NE:CO$[178]"+":[141]400:[141]700
  349. 7420 KO[178]N2:DN[178]D2:MI[178][171]1:[137]7350
  350. 7450 [139]MI[167]7500
  351. 7460 IX[178]ID
  352. 7465 ID[178]ID[170]1:[139]ID[177]O1[167]ID[178]1
  353. 7466 [141]300
  354. 7470 [139]PR$[178][199](255)[167]ID[178]IX:[137]7500
  355. 7480 [139]PR$[179][177]ID$[167]7465
  356. 7490 CO$[178]"+":ID[178]IX:[137]7510
  357. 7500 CO$[178]"-"
  358. 7510 [141]400:[141]700
  359. 7520 KO[178]ID:MI[178]0
  360. 7600 [130]
  361. 7610 [160]2
  362. 7620 [159]2,8,2,"DISKFILE,L
  363. 7630 I$=I1$:DI=DN:FR=D:GOSUB460:GOSUB700
  364. 7700 CLOSE2:GOSUB550:CLOSE15:GOSUB600:GOTO1000
  365. 7997 REM
  366. 7998 REM  ----  "[211]PEICHERINFO"  ----
  367. 7999 REM
  368. 8000 GOSUB900
  369. 8010 OPEN15,8,15,"I":GOSUB700
  370. 8020 PRINT"[211]PEICHERINFORMATIONEN:"
  371. 8030 GOSUB500
  372. 8040 PRINT,"   FREI   GELOESCHT   BELEGT":PRINT
  373. 8050 PRINT"[196]ISKETTEN:   ";
  374. 8051 PRINTRIGHT$("    "+STR$(SI(0)),4)"        -       ";
  375. 8052 PRINTRIGHT$("    "+STR$(SI(1)),4)
  376. 8060 PRINT"[208]ROGRAMME:   ";
  377. 8061 PRINTRIGHT$("    "+STR$(SI(2)),4)"     ";
  378. 8062 PRINTRIGHT$("    "+STR$(SI(3)),4)"       ";
  379. 8063 PRINTRIGHT$("    "+STR$(SI(4)),4)
  380. 8100 CLOSE15:GOSUB600:GOTO1000
  381. 8997 REM
  382. 8998 REM   --- "[198]ILE LOESCHEN" ---
  383. 8999 REM
  384. 9000 GOSUB900
  385. 9010 OPEN15,8,15:GOSUB500:OPEN2,8,2,"PROGFILE,L":GOSUB700
  386. 9020 INPUT"[208]ROGRAMMNAME";ID$:GOSUB100:
  387. 9025 GOSUB300
  388. 9030 IFPR$=ID$THEN9100
  389. 9040 IFPR$<>CHR$(255)THEN9050
  390. 9045 PRINT"[208]ROGRAMM NICHT VORHANDEN.":CLOSE2:CLOSE15:GOTO1000
  391. 9050 ID=ID+1:IFID>O1THENID=1
  392. 9060 GOTO9025
  393. 9100 CLOSE2
  394. 9110 OPEN2,8,2,"DISKFILE,L"
  395. 9120 GOSUB360:DD=NE:D3=DI:GOSUB900
  396. 9130 PRINT"[208]ROGAMM   "HK$ID$HK$
  397. 9135 CLOSE2
  398. 9140 PRINT"[196]ISKETTE  "HK$NA$HK$" "IN$
  399. 9150 PRINT:PRINT"< 1 >  [204]OESCHEN
  400. 9160 [139]CO$[178]"+"[167][153]"< 2 >  ATNNDERES (null)ROGRAMM LOESCHEN
  401. 9170 PRINT"< 0 >  [218]URUECK ZUM [200]AUPTMENUE
  402. 9180 [153]"RIGHT$HRE (null)AHL? ";
  403. 9190 [141]800
  404. 9200 [139]E$[178]"0"[167][160]15:[137]1000
  405. 9210 [139]E$[178]"1"[167]9300
  406. 9220 [139]E$[179][177]"2"[167]9190
  407. 9230 [139]CO$[179][177]"+"[167]9190
  408. 9240 [159]2,8,2,"PROGFILE,L":[137]9050
  409. 9300 SI(3)[178]SI(3)[170]1:SI(4)[178]SI(4)[171]1
  410. 9310 [159]2,8,2,"PROGFILE,L"
  411. 9320 [141]300:N2[178]NE:I2[178]ID
  412. 9330 ID$[178]DL$:[141]400:[141]700:[139]CO$[178]"+"[167]9400
  413. 9340 ID$[178]PR$:[141]100:[139]ID[178]I2[167]9400
  414. 9350 FL[178]ID:ID[178]I2
  415. 9360 ID[178]ID[171]1:[139]FL[177]ID[167]9400
  416. 9370 [141]300:[139]PR$[179][177]ID$[167]9360
  417. 9380 DN[178]DI:KO[178]NE:CO$[178]"-":[141]400:[141]700
  418. 9400 [139] DD[179][177]I2 [167]9500
  419. 9410 [160]2:[159]2,8,2,"DISKFILE,L":[141]700
  420. 9420 DI[178]D3:[141]360
  421. 9430 DI$[178]NA$:I$[178]IN$:KO[178]N2:[141]460:[141]700
  422. 9440 [137]9600
  423. 9500 ID[178]DD:[141]300
  424. 9520 [139]NE[179][177]I2[167]ID[178]NE:[141]300:[137]9520
  425. 9530 DN[178]D3:KO[178]N2:ID$[178]PR$:[141]400:[141]700
  426. 9600 [160]2:[141]550:[160]15:[153]:[153]"(null)ROGRAMM GELOESCHT"
  427. 9610 [141]600:[137]1000
  428.